Curso: Topicos de especializacion 1
Fecha: 12-06-2017
Integrantes:
In [1]:
Sys.setlocale("LC_ALL", 'en_US.UTF-8')
'en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8'
In [2]:
library(dplyr)
Attaching package: ‘dplyr’
The following objects are masked from ‘package:stats’:
filter, lag
The following objects are masked from ‘package:base’:
intersect, setdiff, setequal, union
In [5]:
file="https://raw.githubusercontent.com/rpmunoz/topicos_ingenieria_1/master/clase_3/data/chile_demographic.csv"
chile = read.csv(file)
In [6]:
chile
RegionID Region Provincia Comuna Superficie Poblacion Densidad IDH_2005 1 Arica y Parinacota Arica Arica 4799.4 210936 38.4 0.736 1 Arica y Parinacota Arica Camarones 3927.0 679 0.3 0.751 1 Arica y Parinacota Parinacota General Lagos 2244.4 739 0.5 0.670 1 Arica y Parinacota Parinacota Putre 5902.5 1462 0.2 0.707 1 Arica y Parinacota Iquique Alto Hospicio 572.9 94455 87.6 NA 2 Tarapacá Tamarugal Camiña 2200.2 1156 0.5 0.619 2 Tarapacá Tamarugal Colchane 4015.6 1384 0.4 0.603 2 Tarapacá Tamarugal Huara 10474.6 2360 0.2 0.676 2 Tarapacá Iquique Iquique 2242.1 184953 82.4 0.766 2 Tarapacá Tamarugal Pica 8934.3 4194 0.6 0.793 2 Tarapacá Tamarugal Pozo Almonte 13765.8 11519 0.7 0.722 3 Antofagasta Antofagasta Antofagasta 30718.1 348669 9.7 0.734 3 Antofagasta El Loa Calama 15596.9 147886 9.1 0.757 3 Antofagasta Tocopilla María Elena 12197.0 4593 0.6 0.779 3 Antofagasta Antofagasta Mejillones 3803.9 9752 2.2 0.730 3 Antofagasta El Loa Ollagüe 2964.0 332 0.1 0.679 3 Antofagasta El Loa San Pedro de Atacama 23439.0 5605 0.2 0.711 3 Antofagasta Antofagasta Sierra Gorda 12886.0 1206 0.1 0.789 3 Antofagasta Antofagasta Taltal 20405.1 13493 0.5 0.716 3 Antofagasta Tocopilla Tocopilla 4038.8 20091 5.9 0.690 4 Atacama Huasco Alto del Carmen 5939.0 5488 0.8 0.664 4 Atacama Copiapó Caldera 4666.6 16150 2.9 0.741 4 Atacama Chañaral Chañaral 5772.0 14146 2.2 0.714 4 Atacama Copiapó Copiapó 16681.3 158261 11.9 0.725 4 Atacama Chañaral Diego de Almagro 18664.0 16452 1.0 0.789 4 Atacama Huasco Freirina 3207.0 6531 1.7 0.693 4 Atacama Huasco Huasco 1601.4 9015 5.6 0.695 4 Atacama Copiapó Tierra Amarilla 11191.0 13912 1.1 0.686 4 Atacama Huasco Vallenar 7084.0 52099 6.7 0.731 5 Coquimbo Elqui Andacollo 310.0 11116 33.1 0.675 ⋮ ⋮ ⋮ ⋮ ⋮ ⋮ ⋮ ⋮ 13 Los Lagos Osorno Purranque 1458.8 20768 14.2 0.627 13 Los Lagos Osorno Puyehue 1597.9 11370 7.1 0.675 13 Los Lagos Chiloé Queilén 332.9 5319 16.0 0.646 13 Los Lagos Chiloé Quellón 3244.0 30964 9.5 0.670 13 Los Lagos Chiloé Quemchi 440.3 9191 20.9 0.656 13 Los Lagos Chiloé Quinchao 160.7 9043 56.3 0.648 13 Los Lagos Osorno Río Negro 1265.7 13425 10.6 0.633 13 Los Lagos Osorno San Juan de la Costa 1517.0 7997 5.3 0.510 13 Los Lagos Osorno San Pablo 637.3 9150 14.4 0.625 14 Aisén del General Carlos Ibáñez del Campo Aysén Aysén 29796.4 27187 0.9 0.674 14 Aisén del General Carlos Ibáñez del Campo General Carrera Chile Chico 5737.1 5334 0.8 0.707 14 Aisén del General Carlos Ibáñez del Campo Aysén Cisnes 16093.0 6166 0.3 0.725 14 Aisén del General Carlos Ibáñez del Campo Capitán Prat Cochrane 8599.5 2759 0.3 0.668 14 Aisén del General Carlos Ibáñez del Campo Coyhaique Coyhaique 7290.2 59221 6.8 0.751 14 Aisén del General Carlos Ibáñez del Campo Aysén Guaitecas 620.6 1862 2.4 0.654 14 Aisén del General Carlos Ibáñez del Campo Coyhaique Lago Verde 5422.3 925 0.2 0.637 14 Aisén del General Carlos Ibáñez del Campo Capitán Prat O'Higgins 8182.5 700 0.1 0.572 14 Aisén del General Carlos Ibáñez del Campo General Carrera Río Ibáñez 5997.2 2208 0.4 0.654 14 Aisén del General Carlos Ibáñez del Campo Capitán Prat Tortel 19710.6 531 0.0 0.655 15 Magallanes y de la Antártica Chilena Antártica Chilena Antártica 1250257.6 127 0.0 NA 15 Magallanes y de la Antártica Chilena Antártica Chilena Cabo de Hornos 15578.7 1677 0.1 0.806 15 Magallanes y de la Antártica Chilena Magallanes Laguna Blanca 3695.6 631 0.0 0.785 15 Magallanes y de la Antártica Chilena Última Esperanza Natales 49924.1 21327 0.4 0.699 15 Magallanes y de la Antártica Chilena Tierra del Fuego Porvenir 9707.4 5650 0.8 0.731 15 Magallanes y de la Antártica Chilena Tierra del Fuego Primavera 4253.4 803 0.2 0.774 15 Magallanes y de la Antártica Chilena Magallanes Punta Arenas 17846.3 125483 6.8 0.748 15 Magallanes y de la Antártica Chilena Magallanes Río Verde 17248.0 363 0.0 0.784 15 Magallanes y de la Antártica Chilena Magallanes San Gregorio 6883.7 731 0.1 0.823 15 Magallanes y de la Antártica Chilena Tierra del Fuego Timaukel 10758.9 873 0.1 0.717 15 Magallanes y de la Antártica Chilena Última Esperanza Torres del Paine 6630.0 1163 0.1 0.730
In [7]:
chile_region <- group_by(chile, Region)
summarise(chile_region, n_comuna=n())
Region n_comuna Aisén del General Carlos Ibáñez del Campo 10 Antofagasta 9 Arica y Parinacota 5 Atacama 9 Biobío 54 Coquimbo 15 La Araucanía 32 Libertador General Bernardo O'Higgins 33 Los Lagos 30 Los Ríos 12 Magallanes y de la Antártica Chilena 11 Maule 30 Metropolitana de Santiago 52 Tarapacá 6 Valparaíso 38
In [8]:
summarise(chile_region, n_comuna=n(), poblacion=sum(Poblacion))
Region n_comuna poblacion Aisén del General Carlos Ibáñez del Campo 10 106893 Antofagasta 9 551627 Arica y Parinacota 5 308271 Atacama 9 292054 Biobío 54 2025995 Coquimbo 15 714856 La Araucanía 32 933537 Libertador General Bernardo O'Higgins 33 903248 Los Lagos 30 835829 Los Ríos 12 380618 Magallanes y de la Antártica Chilena 11 158828 Maule 30 1073635 Metropolitana de Santiago 52 7150480 Tarapacá 6 205566 Valparaíso 38 1859312
En vez de definir variables intermedias, uno podría usar el operado %>% para pasar variables de una función a otra
In [9]:
chile %>%
group_by(Region) %>%
summarise(n_comuna=n(), poblacion=sum(Poblacion))
Region n_comuna poblacion Aisén del General Carlos Ibáñez del Campo 10 106893 Antofagasta 9 551627 Arica y Parinacota 5 308271 Atacama 9 292054 Biobío 54 2025995 Coquimbo 15 714856 La Araucanía 32 933537 Libertador General Bernardo O'Higgins 33 903248 Los Lagos 30 835829 Los Ríos 12 380618 Magallanes y de la Antártica Chilena 11 158828 Maule 30 1073635 Metropolitana de Santiago 52 7150480 Tarapacá 6 205566 Valparaíso 38 1859312
In [ ]:
Lea la documentación del paquete dplyr desde el sitio web oficial https://www.rdocumentation.org/packages/dplyr/versions/0.5.0
La documentación de la función group_by() https://www.rdocumentation.org/packages/dplyr/versions/0.5.0/topics/group_by
In [ ]:
Lea la documentación del paquete dplyr desde el sitio web oficial https://www.rdocumentation.org/packages/dplyr/versions/0.5.0
La documentación de la función group_by() https://www.rdocumentation.org/packages/dplyr/versions/0.5.0/topics/group_by
In [ ]:
Lea la documentación de la función arrange() desde https://www.rdocumentation.org/packages/dplyr/versions/0.5.0/topics/arrange
In [ ]:
Content source: rpmunoz/topicos_ingenieria_1
Similar notebooks: